# name : list.sas.label.all.sapply get label from sas7bdat
# key : list.sas.label.all.sapply
# contributor : Shuguang Sun
# --
sapply(${1:sasdts}$0,
function(${2:dt})
knitr::kable(data.frame(VARIABLE = names($2),
CLASS = sapply($1, function(x) class(x)[1]),
MODE = sapply($1, mode),
TYPE = sapply($1, typeof),
LABLE = sapply($1, function(x) paste0(attr(x, "label"), "")))))